home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-04
/
osg.zip
/
OSGDEMO.BAS
< prev
next >
Wrap
BASIC Source File
|
1990-12-10
|
12KB
|
262 lines
' Input definition created by OSGBASIC version 1.01
' (c) Copyright 1987, Project X Development Group
' (c) Copyright 1987, Roy Barrow, Doug Steen
' Code may only be distributed on registration of OSG
' (215) 922-2557 for details.
' CALL osgdemsh ' %%%%%% This line was manually inserted
i.opt% = 1 ' Make the first input active
DO
' SELECT CASE i.opt%
' CASE 1
'************************************************
'* *
'* Input definition for name$ - Name of user *
'* *
'************************************************
work$ = name$
CALL txt.input(0, 0, 1, 1, 1, 1, 1, 40, name$, 14, 6, 7, 0, 0, ek%) _
_
' Exit key pressed
CALL trim(name$) ' Trim the string of leading and trailing blanks
SELECT CASE ek%
CASE 3, 4, 5, 6, 7
i.opt% = i.opt% + 1
CASE ELSE
END SELECT
'---------------------------------------------------------------------------
CASE 2
'***************************************************
'* *
'* Input definition for addr1$ - Address line 1 *
'* *
'***************************************************
work$ = addr1$
CALL txt.input(1, 1, 1, 1, 1, 1, 1, 40, addr1$, 14, 7, 7, 0, 0, ek%) _
_
' Exit key pressed
CALL trim(addr1$) ' Trim the string of leading and trailing blanks
SELECT CASE ek%
CASE 1, 2
i.opt% = i.opt% - 1
CASE 3, 4, 5, 6, 7
i.opt% = i.opt% + 1
CASE ELSE
END SELECT
'---------------------------------------------------------------------------
CASE 3
'***************************************************
'* *
'* Input definition for addr2$ - Address line 2 *
'* *
'***************************************************
work$ = addr2$
CALL txt.input(1, 1, 1, 1, 1, 1, 1, 40, addr2$, 14, 8, 7, 0, 0, ek%) _
_
' Exit key pressed
CALL trim(addr2$) ' Trim the string of leading and trailing blanks
SELECT CASE ek%
CASE 1, 2
i.opt% = i.opt% - 1
CASE 3, 4, 5, 6, 7
i.opt% = i.opt% + 1
CASE ELSE
END SELECT
'---------------------------------------------------------------------------
CASE 4
'***************************************************
'* *
'* Input definition for addr3$ - Address line 3 *
'* *
'***************************************************
work$ = addr3$
CALL txt.input(1, 1, 1, 1, 1, 1, 1, 40, addr3$, 14, 9, 7, 0, 0, ek%) _
_
' Exit key pressed
CALL trim(addr3$) ' Trim the string of leading and trailing blanks
SELECT CASE ek%
CASE 1, 2
i.opt% = i.opt% - 1
CASE 3, 4, 5, 6, 7
i.opt% = i.opt% + 1
CASE ELSE
END SELECT
'---------------------------------------------------------------------------
CASE 5
'***************************************************
'* *
'* Input definition for addr4$ - Address line 4 *
'* *
'***************************************************
work$ = addr4$
CALL txt.input(1, 1, 1, 1, 1, 1, 1, 40, addr4$, 14, 10, 7, 0, 0, ek%) _
_
' Exit key pressed
CALL trim(addr4$) ' Trim the string of leading and trailing blanks
SELECT CASE ek%
CASE 1, 2
i.opt% = i.opt% - 1
CASE 3, 4, 5, 6, 7
i.opt% = i.opt% + 1
CASE ELSE
END SELECT
'---------------------------------------------------------------------------
CASE 6
'*********************************************************
'* *
'* Input definition for telephone$ - Telephone Number *
'* *
'*********************************************************
work$ = telephone$
CALL txt.input(1, 1, 1, 1, 1, 1, 1, 20, telephone$, 14, 11, 7, 0, 0, ek%) _
_
' Exit key pressed
CALL trim(telephone$) ' Trim the string of leading and trailing blanks
SELECT CASE ek%
CASE 1, 2
i.opt% = i.opt% - 1
CASE 3, 4, 5, 6, 7
i.opt% = i.opt% + 1
CASE ELSE
END SELECT
'---------------------------------------------------------------------------
CASE 7
'**************************************************
'* *
'* Input definition for note1$ - Notes, line 1 *
'* *
'**************************************************
work$ = note1$
CALL txt.input(1, 1, 1, 1, 1, 1, 1, 50, note1$, 13, 16, 7, 0, 0, ek%) _
_
' Exit key pressed
CALL trim(note1$) ' Trim the string of leading and trailing blanks
SELECT CASE ek%
CASE 1, 2
i.opt% = i.opt% - 1
CASE 3, 4, 5, 6, 7
i.opt% = i.opt% + 1
CASE ELSE
END SELECT
'---------------------------------------------------------------------------
CASE 8
'**************************************************
'* *
'* Input definition for note2$ - Notes, line 2 *
'* *
'**************************************************
work$ = note2$
CALL txt.input(1, 1, 1, 1, 1, 1, 1, 50, note2$, 13, 17, 7, 0, 0, ek%) _
_
' Exit key pressed
CALL trim(note2$) ' Trim the string of leading and trailing blanks
SELECT CASE ek%
CASE 1, 2
i.opt% = i.opt% - 1
CASE 3, 4, 5, 6, 7
i.opt% = i.opt% + 1
CASE ELSE
END SELECT
'---------------------------------------------------------------------------
CASE 9
'**************************************************
'* *
'* Input definition for note3$ - Notes, line 3 *
'* *
'**************************************************
work$ = note3$
CALL txt.input(1, 1, 1, 1, 1, 1, 1, 50, note3$, 13, 18, 7, 0, 0, ek%) _
_
' Exit key pressed
CALL trim(note3$) ' Trim the string of leading and trailing blanks
SELECT CASE ek%
CASE 1, 2
i.opt% = i.opt% - 1
CASE 3, 4, 5, 6, 7
i.opt% = i.opt% + 1
CASE ELSE
END SELECT
'---------------------------------------------------------------------------
CASE 10
'**************************************************
'* *
'* Input definition for note4$ - Notes, line 4 *
'* *
'**************************************************
work$ = note4$
CALL txt.input(1, 1, 1, 1, 1, 1, 1, 50, note4$, 13, 19, 7, 0, 0, ek%) _
_
' Exit key pressed
CALL trim(note4$) ' Trim the string of leading and trailing blanks
SELECT CASE ek%
CASE 1, 2
i.opt% = i.opt% - 1
CASE 3, 4, 5, 6, 7
i.opt% = i.opt% + 1
CASE ELSE
END SELECT
'---------------------------------------------------------------------------
CASE 11
'**************************************************
'* *
'* Input definition for note5$ - Notes, line 5 *
'* *
'**************************************************
work$ = note5$
CALL txt.input(1, 1, 1, 1, 1, 1, 1, 50, note5$, 13, 20, 7, 0, 0, ek%) _
_
' Exit key pressed
CALL trim(note5$) ' Trim the string of leading and trailing blanks
SELECT CASE ek%
CASE 1, 2
i.opt% = i.opt% - 1
CASE 3, 4, 5, 6, 7
EXIT DO ' %%%%%, and this line was inserted manually
CASE ELSE
END SELECT
'---------------------------------------------------------------------------
CASE ELSE
END SELECT
LOOP